Asobe! Fotoshock 5.0 ERO/Asobe! Fotoshock 5.0 ERO.iso/pc/main.dxr/ì‡ë†_12_toIndex.ls

Text File | 1999-03-23 | 809 b | 37 lines

global gmyphotonum, gphotoloclist, gpage, gpartslist, pussylist, gsaveddata

on toindex
  set pnum to value(gmyphotonum)
  case 1 of
    (pnum < 21):
      go("index1")
    (pnum < 41):
      go("index2")
    (pnum < 61):
      go("index3")
    otherwise:
      go("index4")
  end case
  deleteAll(the windowList)
end

on uraura
  cursor(4)
  set gpage to 1
  set gphotoloclist to value(line gpage of gsaveddata)
  sort(gphotoloclist)
  set gpartslist to [:]
  set pussylist to []
  go("ura-bon")
  updateStage()
  set stagerect to the rect of the stage
  set the rect of window "0001" to inflate(stagerect, -48, -70)
  set the windowType of window "0001" to 2
  set the fileName of window "0001" to "@/dir/0001"
  open(window "0001")
  tell getAt(the windowList, 1)
    go("ura")
  end tell
  cursor(-1)
end